08200		SUBROUTINE LINELN(STFSZ)
08300		COMMON/XRN/RN(2000) /SF/KL,RT,KP
08400		COMMON RS,JA,REST,J2,RQ(18),JX,JR,LX,RDIS
08500		COMMON /PTR/PWDS(250),L,LL,I,IX
08600		EQUIVALENCE (RQ(2),R4),(R5,RQ(3)),(R6,RQ(4)),(R7,RQ(5))
08700		1,(R8,RQ(6)),(R9,RQ(7))
08800		COMMON /PX/POS,SX,PN(2000),Q(10000)
08810		CLEF=-99
08820		SIG=CLEF
08830		STAFF=CLEF
08840		KL=1
08850		KK=1
08860		KP=1
08870		RX=0
08900		RA=0
09000		RT=3
09100		XLINE=180
09200		J=1
09300		I=L
09400		DO 1 K=1,I
09500		N=PN(K)
09600		IF(Q(N+1).NE.4)GO TO 1
09700		IF(Q(N).GT.2)GO TO 1
09800		IF(Q(N+3).LT.XLINE)GO TO 1
09900	C  FOUND LAST BAR LINE.
09910	3	JJ=KP
09930	C PUTS IN STAFF
09940		CALL STAFF(8.,0,STFSZ)
09950		IF(KP.EQ.1)GO TO 33
09955		IF(CLEF.EQ.-99)GO TO 33
09960	C  ONLY STAFF FOR FIRST LINE AT TOP.
09970		RX=8
09980	C  THE SPACER
09990		KP=KP+1
10000		CALL STAFF(3.,1.,CLEF)
10010		IF(SIG.EQ.-99)GO TO 33
10020		RX=12
10030	C  CLEF+SIG
10040		KP=KP+1
10050		CALL STAFF(17.,8.,SIG)
10060	
10610	33	R4=RA+RX
10620		R5=Q(N+3)
10630		RS=3
10640		R7=RT
10650		R8=0
10660		R9=200.
10670		LL=0
10700		L=I-J+1
10800		CALL PTMOVE(Q,PN(J))
10900		RA=R5
11000		LL='J'
11100		RS=RT
11200		R4=0
11300		R5=200
11400		CALL PTMOVE(Q,PN(J))
11500		J=K+1
11600	C  SO IT DOESN'T GO THRU ALL DATA
11650		RT=RT-1
11700		XLINE=RA+180
11800		IF(K.EQ.I)GO TO 2
11900	1	IF(K.EQ.I)GO TO 3
12000	2	L=I
12100		END
15000	
15010		SUBROUTINE STAFF(P1,P3,P5)
15100		COMMON/XRN/RN(2000) /SF/KL,RT,KP
15102		COMMON /PTR/PWDS(250),L,LL,I,IX
15105		PWDS(KP)=KL
15110		RN(KL)=3.
15120		RN(KL+1)=P1
15130		RN(KL+2)=RT
15140		RN(KL+3)=P3
15150		RN(KL+4)=0
15160		RN(KL+5)=P5
15170		KL=KL+6
15180		END